home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Shareware World / Utilities / Text Processing / AlphaLite.6.52 / Tcl / SystemCode / wordCompletion.tcl < prev   
Text File  |  1996-08-27  |  6KB  |  197 lines
  1. ####################################################################
  2. # 
  3. #  FILE: "wordCompletion+.tcl"
  4. #                                    created: 26/11/95 {1:05:48 am} 
  5. #                                last update: 26/11/95 {1:06:49 am} 
  6. #  Author: Vince Darley
  7. #  E-mail: <mailto:vince@das.harvard.edu>
  8. #    mail: Division of Applied Sciences, Harvard University
  9. #          Oxford Street, Cambridge MA 02138, USA
  10. #  <http://www.das.harvard.edu/users/students/Vincent_Darley/>
  11. #  
  12. #  Description: Modified procedure allowing for a different
  13. #                 search string for completion.
  14. # 
  15. #  History
  16. # 
  17. #  Based on Mark Nagata's Word Completion, w/ additions from Tim van der Leeuw
  18. #
  19. #  modified by  rev reason
  20. #  -------- --- --- -----------
  21. #  26/11/95 VMD 1.0 original
  22. #  _/_/_
  23. #
  24. #
  25. # From original documentation:
  26. #   This extension saves typing, as well as making sure variable names are 
  27. #   correct.  While typing the following C code, there is no need to type all 
  28. #   of the second occurrence of verySpecialInt.  One could copy and paste, but 
  29. #   another way is to type a few letters, and select the Word Completion 
  30. #   Extension.
  31. #   
  32. #       int verySpecialInt = 10;
  33. #       while(verySp                                                    
  34. #   
  35. #   
  36. #   becomes
  37. #   
  38. #       int verySpecialInt = 10;
  39. #       while(verySpecialInt                                             
  40. #   
  41. #                                                       
  42. #   
  43. #   Word Completion will look back in the code to find the first match and then 
  44. #   extend the current occurrence to match the previous occurrence.  If a match 
  45. #   is not found looking backwards, then it looks forwards.  If not found 
  46. #   forwards, the word is selected.  This is a quick way to save on typing, 
  47. #   good for helping prevent RSI, but perhaps more importantly, to make sure 
  48. #   that variable names are spelt correctly.
  49. #
  50. ####################################################################
  51.  
  52. set __wc__insPos -1
  53. proc wordCompletion { {got ""} {looking ""} } {
  54.     global __wc__len __wc__prevPos __wc__insPos __wc__prevFound __wc__pat __wc__nextStart __wc__fwd
  55.     
  56.     set pos [getPos]
  57.     # Cursor changed place?
  58.     if $pos==$__wc__insPos {
  59.         # it is an old search
  60.         set ret [wc__newSearch $pos]
  61.         if { $ret == 1 } {
  62.             return 
  63.         } elseif { $ret == -1 } {
  64.             select [expr $pos + [string length $looking] - [string length $__wc__prevFound] - [string length $got]] $pos
  65.             return
  66.         }
  67.     }
  68.     # Start new search for WordCompletion
  69.     if { $got == "" } {    
  70.         # this is a normal completion
  71.         backwardWord
  72.         set start [getPos]
  73.         set one [getText $start $pos]
  74.         set __wc__len [string length $one]
  75.         set __wc__pat [append one {[\w_]+}]
  76.     } else {
  77.         # here we complete 'got' with something beginning 'looking'
  78.         set start [expr $pos - [string length $got]]
  79.         set one $looking
  80.         set __wc__len [string length $one]
  81.         set __wc__pat [append one {[^ \t\n\r]+}]
  82.     }    
  83.     incr start -1
  84.  
  85.     if {![catch {search -s -f 0 -r 1 -i 0 -m 1 -- $__wc__pat $start} data]} {
  86.         set d00 [lindex $data 0]
  87.         set beg [expr $d00+$__wc__len]
  88.         set end [lindex $data 1]
  89.         set __wc__prevFound [getText $d00 $end ]
  90.         set txt [getText $beg $end]
  91.         goto $pos
  92.         insertText $txt
  93.         message "Found above."
  94.         # Set a number of globals for possible next go-around
  95.         set __wc__insPos [getPos]
  96.         set __wc__prevPos $pos
  97.         set __wc__nextStart [expr $d00-$__wc__len]
  98.         set __wc__fwd 0
  99.         return
  100.     }
  101.     if {![catch {search -s -f 1 -r 1 -i 0 -m 1 -- $__wc__pat $pos} data]} {
  102.         set __wc__prevFound [getText [lindex $data 0] [lindex $data 1] ]
  103.         set beg [expr [lindex $data 0]+$__wc__len]
  104.         set end [lindex $data 1]
  105.         set txt [getText $beg $end]
  106.         goto $pos
  107.         insertText $txt
  108.         message "Found below."
  109.         # Set a number of globals for possible next go-around
  110.         set __wc__insPos [getPos]
  111.         set __wc__prevPos $pos
  112.         set __wc__nextStart $end
  113.         set __wc__fwd 1
  114.         return
  115.     }
  116.     goto $pos
  117.     #backwardWordSelect
  118.     select [expr $start +1] $pos
  119. }
  120.  
  121. # returns '1' if it succeeded 
  122. # or -1 if failed completely
  123.  
  124. proc wc__newSearch { pos } {
  125.     global __wc__len __wc__prevPos __wc__insPos __wc__prevFound __wc__pat __wc__nextStart __wc__fwd
  126.     
  127.     set skipStr $__wc__prevFound
  128.     while 1 {    
  129.         if $__wc__fwd {
  130.             set fndMsg "Found below."
  131.         } else {
  132.             set fndMsg "Found above."
  133.         }
  134.         if {![catch {search -s -f $__wc__fwd -r 1 -i 0 -m 1 -- $__wc__pat $__wc__nextStart} data]} {
  135.             set d00 [lindex $data 0]
  136.             set beg [expr $d00+$__wc__len]
  137.             set end [lindex $data 1]
  138.             set __wc__prevFound [getText $d00 $end]
  139.             if [string compare $skipStr $__wc__prevFound] {
  140.                 # Have we got the same word twice?
  141.                 set txt [getText $beg $end]
  142.                 deleteText $__wc__prevPos $__wc__insPos
  143.                 goto $__wc__prevPos
  144.                 insertText $txt
  145.                 message $fndMsg
  146.                 # Set a number of globals for possible next go-around
  147.                 set __wc__insPos [getPos]
  148.                 if $__wc__fwd {
  149.                     # Search Forwards
  150.                     set __wc__nextStart $end
  151.                     # End of found word
  152.                 } else {
  153.                     # Search Backwards
  154.                     set __wc__nextStart [expr $d00 - $__wc__len]
  155.                     # Before start of found word
  156.                     if $__wc__nextStart<=0 {
  157.                         set __wc__fwd 1
  158.                         set __wc__nextStart $__wc__insPos
  159.                     }
  160.                 }
  161.                 return 1
  162.             } else {
  163.                 # Move start of search after finding string again
  164.                 if $__wc__fwd {
  165.                     # Searching Forwards
  166.                     set __wc__nextStart $end
  167.                     # End of found word
  168.                 } else {
  169.                     # Still Searching Backwards
  170.                     set __wc__nextStart [expr $d00 - $__wc__len]
  171.                     # Before start of found word
  172.                     if $__wc__nextStart<=0 {
  173.                         set __wc__fwd 1
  174.                         set __wc__nextStart $__wc__insPos
  175.                     }
  176.                 }
  177.             }
  178.             # End if string compare 
  179.         } else {
  180.             # Search string not found
  181.             if $__wc__fwd {
  182.                 # We were already looking forward, so the word is not in the file
  183.                 message "Not found."
  184.                 set __wc__insPos -1
  185.                 goto $pos
  186.                 return -1
  187.             } else {
  188.                 # start looking forward
  189.                 set __wc__fwd 1
  190.                 set __wc__nextStart $__wc__insPos
  191.             }
  192.         }
  193.         
  194.     }
  195.     return 0
  196. }
  197.